home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Resources / Online / Miami / Installers / MiamiSvenska_Install / Install_Svenska next >
Text File  |  1999-11-04  |  3KB  |  138 lines
  1. ; $VER: Install_Svenska 3.2b (4.11.99)
  2. (procedure P-check-system-version
  3.  (if (< (/ @installer-version 65536) 43)
  4.   (abort "The installation script requires\n"
  5.    "Installer version 43 or higher.\n"
  6.    "That version is available from Aminet or\n"
  7.    "www.nordicglobal.com.")
  8.  )
  9.  (set #exec-version (/ (getversion) 65536))
  10.  (if (< #exec-version 37)
  11.   (abort "Miami requires Kickstart 2.04 or higher.\n")
  12.  )
  13. )
  14.  
  15. (procedure P-select-destination-directory
  16.  (if (exists "Miami:" (noreq))
  17.   (
  18.    (set @default-dest
  19.     (askdir
  20.      (prompt "Please indicate in which directory "
  21.       "you have installed Miami 3.2b.")
  22.      (help "Please indicate in which directory "
  23.       "you have installed Miami 3.2b. Usually the "
  24.       "correct directory is the one the `Miami:' "
  25.       "assign points to.")
  26.      (default "Miami:")
  27.     )
  28.    )
  29.   ) (
  30.    (abort "The assign `Miami:' does not exist on your "
  31.     "computer. You first need to install Miami 3.2b "
  32.     "before you can install local files for it.")
  33.   )
  34.  )
  35. )
  36.  
  37. (welcome "Welcome to the Installation of locale\n"
  38.  "files for Miami 3.2b\n")
  39.  
  40. (set app-name "Miami")
  41.  
  42. (P-check-system-version)
  43.  
  44. (if @pretend
  45.   (abort "The `pretend mode' cannot be used\n"
  46.    "with this installation script.\n")
  47. )
  48.  
  49. (complete 0)
  50.  
  51. (set #source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon))
  52.  (expandpath @icon))
  53. )
  54.  
  55. (P-select-destination-directory)
  56.  
  57. (complete 5)
  58.  
  59. ; start actual installation
  60.  
  61. (if (not (exists (tackon @default-dest "Catalogs")))
  62.  (makedir (tackon @default-dest "Catalogs"))
  63. )
  64.  
  65. (complete 10)
  66.  
  67. (if (not (exists (tackon @default-dest "Catalogs/svenska")))
  68.  (makedir (tackon @default-dest "Catalogs/svenska"))
  69. )
  70.  
  71. (complete 20)
  72.  
  73. (if (not (exists (tackon @default-dest "Help")))
  74.  (makedir (tackon @default-dest "Help"))
  75. )
  76.  
  77. (complete 30)
  78.  
  79. (if (not (exists (tackon @default-dest "Help/svenska")))
  80.  (makedir (tackon @default-dest "Help/svenska"))
  81. )
  82.  
  83. (complete 40)
  84.  
  85. (copyfiles
  86.  (source (tackon #source-dir "Miami.guide"))
  87.  (dest (tackon @default-dest "Help/svenska"))
  88.  (optional force)
  89. )
  90.  
  91. (complete 50)
  92.  
  93. (copyfiles
  94.  (source (tackon #source-dir "Miami.catalog"))
  95.  (dest (tackon @default-dest "Catalogs/svenska"))
  96.  (optional force)
  97. )
  98.  
  99. (complete 60)
  100.  
  101. (copyfiles
  102.  (source (tackon #source-dir "MiamiInit.catalog"))
  103.  (dest (tackon @default-dest "Catalogs/svenska"))
  104.  (optional force)
  105. )
  106.  
  107. (complete 70)
  108.  
  109. (copyfiles
  110.  (source (tackon #source-dir "MiamiRegister.catalog"))
  111.  (dest (tackon @default-dest "Catalogs/svenska"))
  112.  (optional force)
  113. )
  114.  
  115. (complete 80)
  116.  
  117. (if (exists (tackon @default-dest "Miami.guide.info"))
  118.  (
  119.   (copyfiles
  120.    (source (tackon @default-dest "Miami.guide.info"))
  121.    (dest (tackon @default-dest "Help/svenska"))
  122.    (optional force)
  123.   )
  124.   (tooltype
  125.    (dest (tackon @default-dest "Help/svenska/Miami.guide"))
  126.    (noposition)
  127.   )
  128.  )
  129. )
  130.  
  131. (complete 100)
  132.  
  133. (exit "The installation of locale files for Miami is "
  134.   "completed. When you start Miami, MiamiInit or "
  135.   "MiamiRegister again, the installed language will be "
  136.   "used if it is selected in `Locale' system preferences."
  137. )
  138.